home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 68 / Tiger_Disk_068_19xx_Tiger-Crew-Disk_de_Side_B.d64 / wandler - loader (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  702b  |  16 lines
  1. 10 ifa=0thena=1:s=peek(186):printchr$(142):poke53280,9:poke53281,9:gosub30:goto60
  2. 20 gosub30:goto100
  3. 30 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  4. 40 print"[180]";:printspc(10)" wandler - loader [146]"spc(10)"[170]";
  5. 50 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":return
  6. 60 na$="":input"filename sprites ";na$:ifna$=""thenend
  7. 70 na$=na$+"*"
  8. 80 ss$="":input"von welchem laufwerk laden ";ss$:ifss$=""thenend
  9. 90 ss=val(ss$):loadna$,ss,1
  10. 100 print"tiger-disk wieder in's laufwerk"s"[157] legen![146]":poke820,0
  11. 110 print"  sprite zu data wandler wird geladen!"
  12. 111 print" achtung [146]!: vor speichern der datas":print" run/stop+restore ";
  13. 115 print"[146] druecken!":poke198,0:wait198,1:poke198,0
  14. 120 print"[147][149]load",chr$(34);"sprite-wan*";chr$(34);",";s;",1[145][145][145]"
  15. 130 poke631,13:poke632,82:poke633,85:poke634,78:poke635,13:poke198,5:new
  16.